home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / games / 144 / pascal / crc.c next >
Encoding:
Text File  |  1987-06-16  |  478 b   |  20 lines
  1. updatecrc( c, crc )
  2. short c;
  3. unsigned crc;
  4. {
  5.         short count;
  6.  
  7.         for (count=8; --count>=0;)  {
  8.                 if (crc & 0x8000)  {
  9.                         crc <<= 1;
  10.                         crc += (((c<<=1) & 0400)  != 0);
  11.                         crc ^= 0x1021;
  12.                 }
  13.                 else  {
  14.                         crc <<= 1;
  15.                         crc += (((c<<=1) & 0400)  != 0);
  16.                 }
  17.          }
  18.          return crc;
  19. }
  20.